home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / WHILE.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  322 b   |  17 lines
  1. ' WHILE.BAS
  2. ' This program demonstrates the WHILE loop.
  3.  
  4. CLS
  5.  
  6. INPUT "Please enter a number between 1 and 10:  ", userNum%
  7. PRINT
  8.  
  9. WHILE userNum% <= 12
  10.     COLOR userNum%
  11.     PRINT "The current value of userNum% is"; userNum%
  12.     SOUND ((userNum% * 30) + 300), .5
  13.     userNum% = userNum% + 1
  14.     PRINT
  15. WEND
  16.  
  17.